#!/usr/bin/perl
use Getopt::Long;
use Data::Dumper;
use lib "./";

require("parse_class.pm");
require("arrange_class.pm");
require("gen_xlsx.pm");

my %tcher_info_fre;
my $ifile = "class.txt";
my $ofile = "class.xlsx";
my $version_sel = 1;
my @timetbl;
my %tcher_info_time;

print("start to parse file $ifile\n\n");
&parse_class(\%tcher_info_time ,\%tcher_info_fre ,$ifile);
print("end to parse file $ifile\n\n");

#print Dumper(\%tcher_info_time);
#print Dumper(\%tcher_info_fre);
print("start to arrange class \n\n");
&arrange_class(\%tcher_info_time ,\%tcher_info_fre ,\@timetbl);
print("end to arrange class \n\n");

print Dumper(\@timetbl);
print("start to gen xlsx \n\n");
&gen_xlsx(\@timetbl ,$ofile, $version_sel);
print("end to gen xlsx \n\n");
